(Fmatch_data): If no matching done yet, return Qnil.

diff --git a/src/search.c b/src/search.c
index 85c15a0de47be70f22b1d9e2d11b1d0a9895e41a..53187c2c48566653dc3291770c20297c70bb2664 100644 (file)
--- a/src/search.c
+++ b/src/search.c
@@ -1839,7 +1839,7 @@ Use `store-match-data' to reinstate the data in this list.")
   int i, len;
 
   if (NILP (last_thing_searched))
-    error ("match-data called before any match found");
+    return Qnil;
 
   data = (Lisp_Object *) alloca ((2 * search_regs.num_regs)
                                 * sizeof (Lisp_Object));